home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Sieve Benchmarks / Sieve Benchmark next >
Encoding:
Text File  |  1986-10-27  |  563 b   |  25 lines  |  [TEXT/MSBB]
  1. DEFINT a-s
  2. 10 DIM flags(8191)
  3.      PRINT "Sieve Benchmark..."
  4. 20 PRINT "10 iterations"
  5. 22 t!= TIMER
  6. 30 FOR m=1 TO 10
  7. 40     count =0
  8. 50     FOR i=1 TO 8191
  9. 60         flags(i)=1
  10. 70     NEXT
  11. 80     FOR i=1 TO 8191
  12. 90         IF flags(i)=0 GOTO 170
  13. 100           prime =i+i+3
  14. 105           REM print prime
  15. 110           k=i+prime
  16. 120           IF k<= 8090 THEN flags(k)=0 : k=k+prime : GOTO 120
  17. 160           count=count+1
  18. 170     NEXT i
  19. 180 NEXT m
  20. 181 t2!=TIMER
  21. 190 PRINT count;"primes";t2!-t!;"sec"
  22. 200 FOR i=1 TO 10 : BEEP : NEXT i 
  23. WHILE INKEY$ = "" : WEND
  24. END
  25.